主题：[求助]当前单元格的值

具体问题做个例子说明。

你可以判断窗口名等条件判断是哪个表哪个值。

直接记录值，不就行了？或者把坐标、表名等信息用变量记录起来。

Dim str1 As String = args(0)
Dim arr() As String = str1.Split("-")
Dim t As Table = Tables(arr(1))
t.Select(t.RowSel,t.Cols(arr(0)).Index)
vars("val") = t.value
msgbox(vars("val"))

1、不明白你校对要执行什么代码。做什么功能。

2、

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-2-28当前值 (2).rar

1、你不是可以把朗读窗口隐藏起来？

2、用一个变量，记录当前的webbrowser控件，即可。

1、你的窗口【语音朗读】的窗口关闭了；

2、代码改成

Dim str1 As String = args(0)
Dim arr() As String = str1.Split("-")
Dim t As Table = Tables(arr(1))
t.Select(t.RowSel,t.Cols(arr(0)).Index)
vars("val") = t.value
'msgbox(vars("val"))

Dim frm As object    '判断并列窗口名称
For Each f As WinForm.Form In Forms
    If f.Tablename = "main" AndAlso f.opened AndAlso f.FormStyle = 0 Then
        If Forms("语音朗读").opened Then
            Dim obj = f.ActiveControl
            If Typeof obj Is winform.webbrowser Then
                Dim web = obj.basecontrol
                Forms("语音朗读").controls("TextBox1").text = vars("val")
                Forms("语音朗读").controls("朗读").performclick
                Forms("语音朗读").controls("暂停").checked = True
                web.Document.InvokeScript("eval", new String() {"document.getElementById('" & arr(0) & "').setAttribute('class', '');" })
            Else
                Return Nothing
            End If
        End If
    End If
Next

1、出现提示，请加入msgbox，定位出错位置。你不要把朗读窗口关闭。

2、点击div的时候，记录此webbrowser对象，如

vars("web") = forms.activeform.activecontrol

需要朗读的时候，直接使用 vars("web")

1、你点击暂停的时候，代码还在执行朗读的，这个时候不能关闭窗口。如果要关闭窗口，你要在朗读代码那里判断和关闭。你可以设置一个全局变量。

2、代码放在点击div，div获取到焦点的地方。

1、模拟点击参考

http://www.foxtable.com/webhelp/scr/2309.htm

请在朗读的过程中判断是否停止关闭窗口，不要直接关闭啊。用vars变量记录是否需要关闭窗口啊。

2、得到web对象以后，就写代码如，细节自己加入msgbox调整

1、你的源码那里，div加上一个class="abc"的值，如

<div class="abc" ID="第一列" c >绑定表A第一列</div>

2、代码改成