VB脚本大佬请进，此贴只放2小时，到时结贴，谢谢

[heqi915]

刚接触VB，下面这段脚本原先没有参数，代码里用到参数DataTableName的地方都是写死了的，现在就小改变了一下，赋了个参数DataTableName替代原先写死了的地方，郁闷不知道段哪里出错了，还请大家帮小弟看看，谢谢了，顶着有分

Sub AddDownClient(byval DataTableName)
		sReturn = showModalDialog("../ClientInfo/ClientToClient_Find.htm","","dialogWidth:350px;dialogHeight:500px;status:0;scroll:no;center:yes;help:no;")
		if sReturn <> "" then
		
			Dim trRow,tdCell
			Set trRow = document.all(DataTableName).insertRow(document.all(DataTableName).rows.length - 1)
			
			Set tdCell = trRow.insertCell()
			tdCell.innerHtml = "<input type='hidden' name='chkClientId' value='" & Split(sReturn,"|")(0) & "'><IMG height=16 src='" & Split(sReturn,"|")(2) & "' width=16 border=0> " & Split(sReturn,"|")(1)

			Set tdCell = trRow.insertCell()
			tdCell.innerHtml = " "

			Set tdCell = trRow.insertCell()
			tdCell.align = "center"
			tdCell.innerHtml = "<img border='0' src='../Images/Delete.gif' style='cursor:hand' height='16' width='16' onclick='vbscript:DelDownClient(me,DataTableName)'>"
		end if
	End Sub

错误提示：发生意外

[heqi915]

自己现来顶个

[justionpanye]

先给兄弟顶一个

[heqi915]

另一函数：

Sub DelDownClient(ByVal imgDel,byval DataTableName)
		lngMsg = msgbox("确实要移除该大客户的与当前大客户的上下级关系吗？",36,"与下级大客户关联")
		If lngMsg = 6 Then
			document.all(DataTableName).deleteRow(imgDel.parentElement.parentElement.rowIndex)
		End If
	End Sub

[无痕0595]

过来看看``顶一个!!!加油`

[bwch_xm]

帮你顶下吧 今天才过来 第一个回帖

[heqi915]

..............
有没有熟悉VB脚本的帮吗看看啊？？

[heqi915]

无语