Dim fcrq As WinForm.DateTimePicker = e.Form.Controls("发车日期")
Dim zhch As WinForm.TextBox = e.Form.Controls("装货车号")
Dim tbl As WinForm.Table = e.Form.Controls("Table1")
For Each r As Row In tbl.Table.Rows
If r.Checked = True Then
r("发车日期") = fcrq.Value
r("装货车号") = zhch.Value
End If
Next