For Each r As Row In Tables("aa_table1").rows Dim shang As String = r("shang") Dim lou As String = r("lou") Dim hao As String = r("hao") Dim user As String = r("user_name") Dim danhao As String = r("ordernum")
Dim codea = shang & lou & hao & user & danhao r("qrcode") = codea Next
加好友 
发短信
Post By：2018/3/7 11:43:00 [显示全部帖子]
