版主，求教，关于程序优化，谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

版主，您好，通过自动组合以及提取原始数据源关键列信息后自动输入想要列内容的思路，结合以前知道的程序做了如下程序：

目的：《衰减器和滤波器订单明细表》表中将订单信息粘贴到表格中，通过程序一自动生成“客户售达方短文本”列内容，通过程序二“客户售达方短文本”列信息自动调取《客户售达方和客户名称对应表》中的"客户名称"列内容，“客户名称”列生成信息后，通过程序三实现“凭证日期和客户名称”列信息自动生成；通过“凭证日期和客户名称”列信息自动调取《生产批次数据源》表中”生产批次“列内容，实际运行不能一步到位，粘贴原始订单信息后只出现”客户名称“内容实现自动输入、“客户售达方短文本”内容实现自动输入、”凭证日期和客户名称“内容只实现自动输入凭证日期信息部分信息，导致最终"生产批次“列信息不能自动输入。

目前我是将凭证日期列内容剪切后重新又单独粘贴到凭证日期列中，实现凭证日期和客户名称列内容完整，最终确保"生产批次“列信息自动输入。问题根结”凭证日期和客户名称“内容只实现自动输入凭证日期列部分信息

程序一：

If e.DataCol.Name = "客户售达方" Then

If e.DataRow("客户售达方") = Nothing Then

e.DataRow("客户售达方短文本") = Nothing

Else

e.DataRow("客户售达方短文本") = e.DataRow("客户售达方") + e.DataRow("短文本")

End If

程序二：

If e.DataCol.Name = "客户售达方短文本" Then

Dim nms() As String = {"客户名称"}

If e.NewValue Is Nothing Then

For Each nm As String In nms

e.DataRow(nm) = Nothing

Else

Dim dr As DataRow

dr = DataTables("客户售达方和客户名称对应表").Find("[客户售达方短文本] = '" & e.NewValue & "'")

If dr IsNot Nothing Then

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

End If

程序三：

If e.DataCol.Name = "凭证日期" Then

If e.DataRow.IsNull("凭证日期") Then

e.DataRow("凭证日期和客户名称") = Nothing

Else

e.DataRow("凭证日期和客户名称") = e.DataRow("凭证日期") + e.DataRow("客户名称")

End If

程序四：

If e.DataCol.Name = "凭证日期和客户名称" Then

Dim nms() As String = {"生产批次"}

If e.NewValue Is Nothing Then

For Each nm As String In nms

e.DataRow(nm) = Nothing

Else

Dim dr As DataRow

dr = DataTables("生产批次数据源").Find("[凭证日期和客户名称] = '" & e.NewValue & "'")

If dr IsNot Nothing Then

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

End If

主题：版主，求教，关于程序优化，谢谢！