Dim zl As String = e.Form.Controls("DropBox1").Value
Dim bh As String = e.Form.Controls("TextBox1").Value
Dim wxdw As String = e.Form.Controls("ComboBox2").Value
Dim wxfy As String = e.Form.Controls("TextBox2").Value
Dim wxpj As String = e.Form.Controls("CheckedComboBox1").Value
Dim syts As String = e.Form.Controls("TextBox3").Value
Dim zt As String = e.Form.Controls("ComboBox3").Value
Dim xh As String = e.Form.Controls("TextBox4").Value
Dim t As Date =Date.today
Dim dr2 As DataRow
dr2 = DataTables("任务信息").Find("[序号] = '" & xh & "'")
dr2("编号") = bh
dr2("外协单位") = wxdw
dr2("外协费用") = wxfy
dr2("外协评价") = wxpj
dr2("状态") = zt
dr2("剩余天数") = syts
dr2("序号") = xh
dr2("种类") = zl
DataTables("任务信息").Save()
e.Form.Controls("DropBox1").Value = ""
e.Form.Controls("TextBox1").Value = ""
e.Form.Controls("ComboBox2").Value = ""
e.Form.Controls("TextBox2").Value = ""
e.Form.Controls("CheckedComboBox1").Value = ""
e.Form.Controls("TextBox3").Value = ""
e.Form.Controls("DropBox2").Value = ""
e.Form.Controls("ComboBox3").Value = "未开始"
以上是代码 这个录入 dr2("种类") = zl 就提示出错
加好友 
发短信
Post By：2016/7/30 12:14:00 [只看该作者]
