foxtable能否调用webview2 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问老师，foxtable能否调用webview2？谢谢

可以，引用的文件有点大，浏览网页没问题，其他就不知道了。引用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编辑过]

不行，会报错

此主题相关图片如下：捕获.png

请问老师：第三列的当前行的单元格的数据等于第二列的下一行单元格的值，该怎么写代码？

e.datarow("第二列")=e.datarow("第三列")这么写只能表示第二列和第三列的同一行。

学习指导。

http://www.foxtable.com/webhelp/topics/0553.htm

Dim r As Integer
r = tables("某表").FindRow(e.datarow)

if r > -1

e.datarow("第三列") = tables("某表").rows(r+1)("第二列")

end if

请问老师，下面代码报错。程序就想启用双图表，第一个图表的程序通过可以执行，执行第二个图表就报错，请问如何解决。谢谢指导。

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编辑过]

……

Series.Length = math.Ceiling((max - min).TotalDays)

Do While dd <= max

……

请问老师，启动双图表时，需要将第二个图表放在第一个图表之上，该怎样写代码？

一般情况下第一个图表盖住了第二个图表，现在需要将第二个图表盖在第一个图表之上。

谢谢。

把第二个图表作为第一个图表添加，第一个图表作为第二个图表添加

主题：foxtable能否调用webview2