麦麦

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  谢谢。

麦麦

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

麦麦

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

麦麦

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 是数据库的名字是吗?

麦麦

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