自动赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

老师，请帮我看一下，我这个代码是写在表 DataRowAdded 事件中，是从前一个窗体中赋值到后面有个窗体中，农户姓名、日期这两个值可以赋值成功，可后面还有字段，比如这个乡镇、行政村却赋值不过去，老师看一下，后面这两个哪块出问题了

If Forms("新增粮款结算").Controls("乡镇").Enabled = True Then

Dim xz As String = Forms("新增粮款结算").Controls("乡镇").Text

e.DataRow("乡镇")= xz

End If

老师，这个还是不行，前面我试过，日期是手动选择，农户姓名我是通过下拉组合框取值到的，乡镇、行政村等信息，也是通过 “农户姓名”获得的其它列的值，请老师再教一下。

还有一个问题，下拉组合框里的内容如何打印呢，我是在一个窗体中为了区别各块信息，结果里面的内容却无法打印出来，这个如何解决？

控件如果有值，肯定是可以的，除非控件本身就没有值。

如果要做窗口打印，组合框的下拉内容无法打印的，可以考虑放一个隐藏的文本框控件，设置为多行，把下拉内容放到文本框里

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("农户售粮明细信息_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("农户姓名")
            If Forms("新增粮款结算").opened Then
            Tables("粮款结算总表").Current("农户姓名") = tbl.Current("农户姓名")
            Tables("粮款结算总表").Current("联系电话") = tbl.Current("联系电话")
            Tables("粮款结算总表").Current("乡镇") = tbl.Current("乡镇")
            Tables("粮款结算总表").Current("行政村") = tbl.Current("行政村")
            Tables("粮款结算总表").Current("自然村") = tbl.Current("自然村")
            Tables("粮款结算总表").Current("售粮单号") = tbl.Current("售粮单号")

老师，我的 “新增粮款结算” 窗体的农户姓名、联系电话等，是通过上面这种方式取得的，且已经能看到，除农户姓名的其它列已经有值，

If Forms("新增粮款结算").Controls("乡镇").Enabled = True Then

Dim xz As String = Forms("新增粮款结算").Controls("乡镇").Text

e.DataRow("乡镇")= xz

End If

请老师看一下，这个代码，在另一个窗体关联表 DataRowAdded 修改，可以把新增粮款结算取得个各个值，传到另一个窗体对应的值中

只要窗口是打开的肯定是可以的

主题：自动赋值