If Forms("新增粮款结算").opened Then
If Forms("新增粮款结算").Controls("DropBox2").Enabled = True Then
Dim nhxm As String = Forms("新增粮款结算").Controls("DropBox2").Text
e.DataRow("农户姓名")= nhxm
End If
If Forms("新增粮款结算").Controls("DateTimePicker1").Enabled = True Then
Dim rq As Date = Forms("新增粮款结算").Controls("DateTimePicker1").value
e.DataRow("日期")= rq
End If
If Forms("新增粮款结算").Controls("DateTimePicker2").Enabled = True Then
Dim slrq As Date = Forms("新增粮款结算").Controls("DateTimePicker2").value
e.DataRow("售粮日期")= slrq
End If
If Forms("新增粮款结算").Controls("乡镇").Enabled = True Then
'Dim xz As String = Forms("新增粮款结算").Controls("乡镇").Text
Dim xz As WinForm.TextBox = Forms("新增粮款结算").Controls("乡镇").value
e.DataRow("乡镇")= xz
End If
If Forms("新增粮款结算").Controls("TextBox3").Enabled = True Then
Dim xzc As String = Forms("新增粮款结算").Controls("TextBox3").Text
e.DataRow("行政村")= xzc
End If
End If
老师，请帮我看一下，我这个代码是写在表 DataRowAdded 事件中，是从前一个窗体中赋值到后面有个窗体中，农户姓名、日期 这两个值可以赋值成功，可后面还有字段，比如这个 乡镇、行政村 却赋值不过去，老师 看一下，后面这两个哪块出问题了
加好友 
发短信
Post By：2020/5/7 17:49:00 [只看该作者]
