- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- foxtable能否调用webview2 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189076)
-- 发布时间：2023/11/8 20:37:00
-- foxtable能否调用webview2
请问老师，foxtable能否调用webview2？谢谢
-- 发布时间：2023/11/9 8:41:00
--
调用不了
-- 发布时间：2023/11/10 10:24:00
--
可以，引用的文件有点大，浏览网页没问题，其他就不知道了。引用Microsoft.Web.WebView2.Core.dll及Microsoft.Web.WebView2.winforms.dll
Dim v As new Microsoft.Web.WebView2.WinForms.WebView2()
Dim pn As WinForm.Panel = e.Form.Controls("Panel1")
pn.basecontrol.controls.add(v)
v.Dock = system.windows.forms.Dockstyle.fill
If v IsNot Nothing Then
\' v.CoreWebView2.Settings.IsZoomControlEnabled = True \'是否启用网页的放大缩小功能
v.source = new uri("https://www.baidu.com/")
\'v.CoreWebView2.Settings.IsScriptEnabled = True \' 是否启用JS脚本
\'v.CoreWebView2.Settings.IsWebMessageEnabled = True \' 是否启用WebMessage
\'v.CoreWebView2.Settings.AreDefaultScriptDialogsEnabled = True \' 是否启用默认的对话框
\'v.CoreWebView2.Settings.IsStatusBarEnabled = True \'是否显示状态栏,关闭时鼠标悬浮在链接上时右下角没有url地址显示
\'v.CoreWebView2.Settings.AreDevToolsEnabled = True \' 是否启用开发工具, 默认为true,关闭时菜单中的相应选项也一起关闭
\'v.CoreWebView2.Settings.AreDefaultContextMenusEnabled = True \'是否启用右键菜单
\'v.CoreWebView2.Settings.AreHostObjectsAllowed = True \'是否启用脚本的HostObject注入
\' v.CoreWebView2.Settings.IsBuiltInErrorPageEnabled = True \' 是否启用默认的错误对话框
End If
[此贴子已经被作者于2023/11/10 11:33:12编辑过]
-- 发布时间：2023/12/28 11:27:00
--
不行，会报错
此主题相关图片如下：捕获.png
-- 发布时间：2024/5/19 11:39:00
--
请问老师：第三列的当前行的单元格的数据等于第二列的下一行单元格的值，该怎么写代码？
e.datarow("第二列")=e.datarow("第三列")这么写只能表示第二列和第三列的同一行。
学习指导。
-- 发布时间：2024/5/19 20:29:00
--
http://www.foxtable.com/webhelp/topics/0553.htm
Dim r As Integer
r = tables("某表").FindRow(e.datarow)
r = tables("某表").FindRow(e.datarow)
if r > -1
e.datarow("第三列") = tables("某表").rows(r+1)("第二列")
end if
-- 发布时间：2024/5/24 13:45:00
--
请问老师，下面代码报错。程序就想启用双图表，第一个图表的程序通过可以执行，执行第二个图表就报错，请问如何解决。谢谢指导。
Dim Chart2 As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim tProd As Table = Tables("Proj")
Chart2= Forms("Data").Controls("Prod")
Dim min As Date = tProd.Compute("min(TDate)" ,"[Block]=\'" & sel & "\'")
Dim max As Date = tProd.Compute("max(TDate)" , "[Block]=\'" & sel & "\'")
dd=min
Chart2.SeriesList2.Clear() \'清除图表原来的图系------------------------------
Series = Chart2.SeriesList2.Add() \'给图表2增加一个图系-------------------
Chart2.ChartType2 = ChartTypeEnum.XYPlot
Chart2.AxisY.Text = "Prod"
Chart2.AxisY2.Text = "Accum"
i2=0
Do While dd <= max
Dim fdr3 = tProd.DataTable.find("TDate=#" & dd & "# And [Block]=\'" & sel & "\'")
If fdr3 Is Nothing Then
Series.X(i2) = i2
Series.Y(i2) = 0
Else
Series.X(i2) = i2 ‘----执行到这里就报错，请问怎么解决
Series.Y(i2) = fdr3("T_Ave")
End If
If i2 Mod k = 0 Then
Chart2.AxisX.SetValueLabel(i2, dd)
Else
Chart2.AxisX.SetValueLabel(i2, "")
End If
i2 += 1
dd = dd.adddays(1)
Loop
[此贴子已经被作者于2024/5/24 13:51:10编辑过]
-- 发布时间：2024/5/24 14:17:00
--
……
Series.Length = math.Ceiling((max - min).TotalDays)Do While dd <= max
……
-- 发布时间：2024/5/25 17:25:00
--
请问老师，启动双图表时，需要将第二个图表放在第一个图表之上，该怎样写代码？
一般情况下第一个图表盖住了第二个图表，现在需要将第二个图表盖在第一个图表之上。
谢谢。
-- 发布时间：2024/5/25 17:29:00
--
把第二个图表作为第一个图表添加，第一个图表作为第二个图表添加