dim srr() as string = {"面料识别号","客户编号","面料名称",....}If DataTables("窗口3_Table1").DataRows.Count = 0 Then '如果是一个空表
Return '那么返回
Else
‘中间可以优化一下
for i as integer = 0 to srr.length - 1
Dim lb1 As WinForm.Label = e.Form.Controls("Label" & (i+1))
If Tables("窗口3_Table1").Current.IsNull(srr(i)) = False Then
lb1.Text = srr(i) & ": " & Tables("窗口3_Table1").Current(srr(i))
Else
lb1.Visible = False
End If
next
Dim s1 As String = Tables("窗口3_Table1").Current("备注").Replace("， ", ",").Replace("， ", ",").Replace(" ，", ",").Replace(" ，", ",").Replace(vbcrlf, ",").Replace(vbtab, ",").Replace(" ", ",").Replace("，", ",").Replace(" ,", ",").Replace("（备注", ",（备注")
If s1 <> "" Then
……
加好友 
发短信
Post By：2022/5/5 15:11:00 [显示全部帖子]
