0

私は今1時間近く探していましたが、まだ答えに近づいていません. 基本的に - HTML セルをクリックして、その HTML セルの現在の値を取得し、その値を VBScript 変数に割り当てます。正直なところ、誰かが最初のビットのやり方を教えてくれたら嬉しいです. このように、VBScript でのみ -行をクリックして HTML テーブル セルの値を取得します。

ここでの唯一の問題は、スクリプトの早い段階でテーブルが完全に生成されてから、Span タグに配置されていることです。

どんな助けでも大いに適用されるでしょう。

編集：OKなので、今実行しているものをここに示します。もう1時間以上頭を叩いています：

    Sub Display_Click
Dim conn, str1
MainTitle.InnerHTML = "<h2>Main Call Queue</h2>"
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=Login"
Set rsData = conn.Execute("SELECT * FROM MainTable WHERE CallStat='Open' ORDER BY P_ID DESC;")
str1 = "<table border=1 cellpadding=5><tr><th>Call Id</th><th>Full Name</th><th>Postcode</th><th>Site Code</th><th>Problem Title</th><th>Category</th><th>SubCategory</th><th>Call Status</th></tr>"
Do Until rsData.EOF = True
str1 = str1 & "<tr onClick=" & chr(34) & "Cell ME" & chr(34) & "><td>" & rsData("P_Id") & "</td><td>" & rsData("FirstN") & "</td><td>" & rsData("PostCode") & "</td><td>" & rsData("SiteNumber") & "</td><td>" & rsData("PTitle") & "</td><td>" & rsData("PCat") & "</td><td>" & rsData("SCat") & "</td><td>" & rsData("CallStat") & "</td></tr>"
rsData.moveNext
Loop
str1 = str1 & "</table>"
MainDisplay.InnerHTML = str1
conn.Close
Call CheckState
End Sub

エラーはこのブロックのどこかにあると確信しています。テーブルは 3 行で生成され、エラーが 3 回発生します。

4

2 に答える 2

0

生成された要素に影響を与えることができますか (追加の属性で生成されるように)? もしそうなら、次のようなものがうまくいくはずです。

VB スクリプト:

Sub Foo(obj)
  MsgBox obj.innerHtml
End Sub

HTML:

<table id="tableID">
  <tr>
    <td onClick="Foo Me">row 1, cell 1</td>
    <td onClick="Foo Me">row 1, cell 2</td>
  </tr>
  <tr>
    <td onClick="Foo Me">row 2, cell 1</td>
    <td onClick="Foo Me">row 2, cell 2</td>
  </tr>
</table>

この属性onClick="..."は、クリック イベントを処理するための手順または関数をタグに追加します。Foo()引数を 1 つ取る手続きです ( obj)。Meクリック イベントが発生したオブジェクトへの参照です (こちらを参照)。この呼び出しでは、要素へFoo Meの参照がプロシージャに渡されるため、プロシージャが効果的に実行されます。<td>FooMsgBox Me.innerHtml

于 2013-05-27T11:04:41.093 に答える