主题：关于填写内容到数据表的奇怪的问题

Value 改成 Text

Dim dr As DataRow
Dim salNo As WinForm.TextBox = Forms("员工明细建档").Controls("TextSalNo")
Dim name As WinForm.TextBox = Forms("员工明细建档").Controls("TextName")
If Vars("AddYuanGong") = True Then   '新增的
    If salNo.Text Is Nothing Then
        MessageBox.Show("员工代号不能为空白!")
    Else
        dr = DataTables("员工信息表").AddNew
        If dr IsNot Nothing Then
            dr("员工代号") = salNo.text
            dr("员工姓名") = name.text
            DataTables("员工信息表").Save
            Vars("AddYuanGong") = False
        Else
            MessageBox.Show("存盘出现问题,请重新存盘!")
            Return
        End If
    End If
Else     '修改的
    dr = DataTables("员工信息表").Find("[员工代号] = '"& salNo.text &"'")
    If dr IsNot Nothing Then
        dr("员工姓名") = name.text
        salNo.Value = dr("员工代号")
        DataTables("员工信息表").Save
    End If
End If