麦麦

1.计算总价代码怎么写？单价，数量和总价统属 进货单表，当输入单价和数量时无需输入总价textbox便能自动计算并显示。。我参考了书上写的代码，当时输入无任何反应。
/单价离开焦点时计算金额
   Private Sub price_lostfocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allcount.LostFocus
        If IsNumeric(price.Text) Then
            Try
                price.Text = Format(CDbl("0" & price.Text), "#,###,##0.00")
            Catch ex As Exception
            End Try
        End If

    End Sub
/数量离开焦点时计算金额
    Private Sub allcount_lostfocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles allcount.LostFocus
        If IsNumeric(allcount.Text) Then
            Try
                allcount.Text = Format(CDbl("0" & allcount.Text), "#,###,##0.00")
            Catch ex As Exception
            End Try
        End If
    End Sub


2.还要VB。net 动态连接数据库的代码怎么写，就是换台机子一样可以运行，不用更改设置。

谢谢了，有VB.net高手愿意帮帮小女子吗？加我Q123498327  谢谢。

Nothing

1、加上一行
Msgbox ( val(price.Text )*val(allcount.Text ))
如果你有总价和文本框，如果名叫 总价 可以这样写
总价.text= Format(val(price.Text )*val(allcount.Text )), "#,###,##0.00")

2、你可以使用ADO组件，使用连接字符串
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db.mdb;Persist Security Info=False"
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = "表名"
    adodc1.Refresh

麦麦

谢谢管理员,第一个问题解决了,可是第二个,连接代码要写在哪里呢? 换台机子的话不是要改数据源路径吗?我希望是能够不用做任何改动就可以运行

Nothing

第二个问题可以在程序启动时加载数据库
关于文件地址可以使用下面代码
strdb=App.Path +"\db.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+strdb+";Persist Security Info=False"

然后将db.mdb与编译的文件放到同一个文件夹下就可以了

麦麦

App.path 中APP要声明,怎么定义?看的不是很懂,能完整的写一遍吗?这些是写在.."登录窗口的     load 事件中吗?假如我的数据名为:销售系统,, 应该怎么写?谢谢!!

Nothing

应当是这个,VB.Net成VB6不一样了

Application.StartupPath

麦麦

Public strdb As String = Application.StartupPath + "\db.mdb"
   public adodc1 As SqlConnection
  adodc1.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strdb + "ersist Security Info=False"


代码是这样写的吗?是写在外部的模块中吗?但是一直是显示adodc1未声明的啊...但是如果写在"登录"的load 事件中就不会出现这种情况了,另外db.mdb 是数据库的名字是吗?

Nothing

我讲的adodc1是一个数据库控件,你如果用别的数据库连接控件,请参考其他的联接方式,如果不是access格式的数据库,比SQL Server,那么不能实现你把说的功能,其他机器必需安装SQL数据,而且必需配制.

麦麦

哦,好的,谢谢了,我是用sqlserver数据库.