以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提示选确定后的代码如何写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1164)
--  作者：号子
--  发布时间：2008/11/18 16:33:00
--  [求助]提示选确定后的代码如何写？
Dim YN As DialogResult
YN = MessageBox.Show("请输入客资料", "提示", MessageBoxButtons.YesNo)
If YN = DialogResult.Yes Then
    打开"基本资料",新增一行,光标移到该行"客户名称"
Else
    e.datarow("收货_抵扣") = false 
End if


上面的代码，----打开“基本资料”并新增一行且将光标移到“客户名称”，该怎么写呀
--  作者：狐狸爸爸
--  发布时间：2008/11/18 16:55:00
--  
打开"基本资料",新增一行,光标移到该行"客户名称"

 

With Tables("表B")

    .AddNew

    .Select(.RowSel, Tables("表B").Cols("第五列").Index)

End With

Maintable = Tables("表B")

[此贴子已经被作者于2008-11-18 17:00:59编辑过]