以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable能否调用webview2  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189076)

--  作者:cglsg5076
--  发布时间: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编辑过]

--  作者:lur320
--  发布时间:2023/12/28 11:27:00
--  
 不行,会报错
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:cglsg5076
--  发布时间: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)
if r > -1
e.datarow("第三列") = tables("某表").rows(r+1)("第列") 
end if

--  作者:cglsg5076
--  发布时间: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  
……

--  作者:cglsg5076
--  发布时间:2024/5/25 17:25:00
--  
请问老师,启动双图表时,需要将第二个图表放在第一个图表之上,该怎样写代码?
一般情况下第一个图表盖住了第二个图表,现在需要将第二个图表盖在第一个图表之上。

谢谢。

--  作者:有点蓝
--  发布时间:2024/5/25 17:29:00
--  
把第二个图表作为第一个图表添加,第一个图表作为第二个图表添加