主题：[求助]窗体中怎么取值（已解决）

做了个窗体，"TextBox1"中放着订单号（绑定订单表），"Table1"中放着订单.订单明细表，窗体中还有个Button2做为确定按钮。订单明细表中有两个逻辑列，“待发运”和“发运”。

希望在Table1中将“待发运”勾选，按确定后“，该订单号对应的订单明细中的“发运”自动勾选。

参照帮助文件再谈Table和DataTable 中的示例六，在Button2的Click中写了如下程序，

但是，没有第一段程序的情况下，订单表中所有”待发运“=True的“发运”都被勾选了；
加了第二段程序，总提示错误“从字符串“待发运”=True到类型“long”的转换无效”。这是什么意思？该如何修改？？

Dim Fa As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Fa = .Value
    End If
End With

Dim drs As List(Of DataRow)
'drs = DataTables("订单.订单明细").Select("[待发运] = True")
drs = DataTables("订单.订单明细").Select("[待发运] = True" And "[订单号]=Fa")
For Each dr As DataRow In drs
    dr("发运") = True
Next

其实你找错地方了，两个表已经建立了关联，那么很简单：
 
http://www.foxtable.com/help/topics/0431.htm
http://www.foxtable.com/help/topics/2649.htm

 设置订单表的DatacolChanged事件为：
 
If e.DataCol.Name = "发运"  AndAlso e.DataRow("发运") = true Then
    For each dr As DataRow in e.Datarow.GeChildrows("订单明细")
           dr("发运") = true
    next
End If

有点甜，谢谢你的解答。

你的程序，我理解是“订单表”中的“发运”列=True时，将“订单明细表”的发运改成True，对吗？

 现在，我的“待发运”和“发运”两个逻辑列都在“订单明细表”中。

我想，通过窗口查询“订单号”后找到了该订单的订单明细，
希望按“确定”按钮后，
该订单号下的订单明细数据中的“待发运”=True 后面的“发运”才更改为True。

另外，设置DatacolChanged事件的话，是不是“按钮”就没有用了？

这样写。

 If e.DataCol.Name = "发运"  AndAlso e.DataRow("发运") = true Then
    For each dr As DataRow in e.Datarow.GeChildrows("订单明细")
           dr("发运") = dr("待发运")
    next
End If

 前辈，还是有些不明白，这段程序写在哪里？订单表的DatacolChanged中吗？

我的订单表中没有“发运”这一列。订单明细表中有。

用窗体，是把同一个订单号的订单明细找出来，在“待发运”上打个勾，然后希望有个按钮，按确定后实现“发运”的自动勾选。

我理解的，应该是通过按钮的Click事件触发的吧？

上面这段程序如果放在按钮的Click事件中，提示编译错误：“DataCol”不是“ControlEventArgs”的成员

 楼主，说起来麻烦，你把你的项目上传一下，输入少量数据。这个问题挺好解决的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

请见附件。

打开“订单明细表”，然后运行“发货查询”，选订单号D12110803，然后在“待发运”处任选一个，点击“发运确认”。
然后在“订单明细表”中就可以看到，D2012101501中的两个“待发运”也变成了“发运”=True（不希望这样）

 还没有解决，顶一顶~~~

Dim drs As List(Of DataRow)
drs = DataTables("OrderDetail").Select("[待发运] = True")
'drs = DataTables("OrderDetail").Select("[待发运] = True" And "[OrderNumber]=Fa")
For Each dr As DataRow In drs
    dr("发运") = True
Next

 

  你的代码不是要勾选吗?

 楼主，我看下例子，不明白楼主的用意。