- android - RelativeLayout 背景可绘制重叠内容
- android - 如何链接 cpufeatures lib 以获取 native android 库?
- java - OnItemClickListener 不起作用,但 OnLongItemClickListener 在自定义 ListView 中起作用
- java - Android 文件转字符串
我在 MySQL 中有一个这样的表:
+-------+--------+-------------+
| child | parent | data |
+-------+--------+-------------+
| 1 | 0 | house |
| 2 | 0 | car |
| 3 | 1 | door |
| 4 | 2 | door |
| 5 | 2 | windscreen |
| 11 | 5 | wiper |
+-------+--------+-------------+
我根据 this 从 Excel 2007 连接到 MySQL教程除了我在系统 DSN 中创建 DSN 而不是在用户 DSN 中,这对我有用。
我对公式知之甚少,但我不知道如何获取此表格数据:
house | door
house | wall
car | door
car | windscreen | wiper
MySQL 的部分在这里不是问题。那个 MySQL 表很可能是一个 Excel 表。现在我意识到甚至没有必要说这里有一个 MySQL 表只是一个 Excel 表。但这可能会启发/帮助某些人。
在一些文档之后,我设法解决了问题中最重要的方面。工作表数据库中的范围:
child parent data
1 0 car
2 0 house
3 1 door
4 2 door
5 1 window
6 2 window
7 1 windscreen
8 7 wiper
9 4 color
10 2 color
我有一个名称 db 指的是:
=db!$A$2:OFFSET(db!$C$2,COUNTA(db!$C:$C)-2,0)
一个名字的 child :
=db!$A$2:OFFSET(db!$A$2,COUNTA(db!$A:$A)-2,0)
在另一个名为 construct 的工作表中,我从 B2 开始并使用了以下公式:
=IFERROR(
IF(ISBLANK(B1),
LARGE(child,COUNTA($A$2:A$2)+1),
VLOOKUP(B1,db,2,0)
),".")
在名为输出的第三张表中,我从 A1 开始并使用了公式:
=IFERROR(VLOOKUP(construct!B2,db,3,0),".")
现在最后一个挑战是让构造和输出的公式在新条目添加到主表时自动扩展,但我认为不可能。
当从 db sheet 中的 SQL 导入时,将有一个表而不是范围,因此公式看起来会有点不同。单击表中的任意位置,单击设计选项卡并重命名表基,然后在从 b2 开始的构造表中使用以下公式:
=IFERROR(
IF(ISBLANK(B1),
LARGE(INDIRECT("base[child]"),COUNTA($A$2:A$2)+1),
VLOOKUP(B1,base,2,0)
),".")
最佳答案
以下是我使用 VBA 的方法:首先创建一个类模块并将其命名为 CDatum。将此代码放在那里。
Option Explicit
Private msID As String
Private msData As String
Private msParentID As String
Public Property Get ID() As String
ID = msID
End Property
Public Property Let ID(ByVal sID As String)
msID = sID
End Property
Public Property Get Data() As String
Data = msData
End Property
Public Property Let Data(ByVal sData As String)
msData = sData
End Property
Public Property Get ParentID() As String
ParentID = msParentID
End Property
Public Property Let ParentID(ByVal sParentID As String)
msParentID = sParentID
End Property
Public Property Get ChildCount() As Long
Dim i As Long
Dim lReturn As Long
For i = 1 To gclsData.Count
If gclsData.Data(i).ParentID = Me.ID Then
lReturn = lReturn + 1
End If
Next i
ChildCount = lReturn
End Property
Public Property Get Tree() As Variant
Dim vaReturn As Variant
Dim vaChild As Variant
Dim i As Long, j As Long
Dim lChildCount As Long
Dim lRowCount As Long
Dim lOldUbound As Long
If Me.ChildCount = 0 Then
lRowCount = 1
Else
lRowCount = Me.ChildCount
End If
ReDim vaReturn(1 To lRowCount, 1 To 1)
For i = 1 To lRowCount
vaReturn(i, 1) = Me.Data
Next i
For i = 1 To gclsData.Count
If gclsData.Data(i).ParentID = Me.ID Then
lChildCount = lChildCount + 1
vaChild = gclsData.Data(i).Tree
lOldUbound = UBound(vaReturn, 2)
ReDim Preserve vaReturn(1 To lRowCount, 1 To UBound(vaReturn, 2) + UBound(vaChild, 2))
For j = 1 To UBound(vaChild, 2)
vaReturn(lChildCount, j + 1) = vaChild(1, j)
Next j
End If
Next i
Tree = vaReturn
End Property
接下来制作一个类模块并命名为CData并将这段代码放入其中
Option Explicit
Private mcolCDatas As Collection
Private Sub Class_Initialize()
Set mcolCDatas = New Collection
End Sub
Private Sub Class_Terminate()
Set mcolCDatas = Nothing
End Sub
Public Sub Add(clsDatum As CDatum)
mcolCDatas.Add clsDatum, clsDatum.ID
End Sub
Public Property Get Count() As Long
Count = mcolCDatas.Count
End Property
Public Property Get Data(vItem As Variant) As CDatum
Set Data = mcolCDatas.Item(vItem)
End Property
Public Property Get FilterByTopLevel() As CData
Dim clsReturn As CData
Dim i As Long
Dim clsDatum As CDatum
Set clsReturn = New CData
For i = 1 To Me.Count
Set clsDatum = Me.Data(i)
If clsDatum.ParentID = 0 Then
clsReturn.Add clsDatum
End If
Next i
Set FilterByTopLevel = clsReturn
End Property
接下来插入一个标准模块,把这段代码放进去
Option Explicit
Public gclsData As CData
Sub FillClass()
Dim clsDatum As CDatum
Dim rCell As Range
Set gclsData = New CData
For Each rCell In Sheet1.Range("A2:A7").Cells
Set clsDatum = New CDatum
clsDatum.ID = rCell.Value
clsDatum.Data = rCell.Offset(0, 2).Value
clsDatum.ParentID = rCell.Offset(0, 1).Value
gclsData.Add clsDatum
Next rCell
End Sub
Sub PrintTree()
Dim clsDatum As CDatum
Dim clsTopLevel As CData
Dim i As Long
Dim ws As Worksheet
Dim vaData As Variant
Dim lRowCount As Long
FillClass
Set clsTopLevel = gclsData.FilterByTopLevel
Set ws = ThisWorkbook.Worksheets.Add
lRowCount = 1
For i = 1 To clsTopLevel.Count
Set clsDatum = clsTopLevel.Data(i)
vaData = clsDatum.Tree
ws.Cells(lRowCount, 1).Resize(UBound(vaData, 1), UBound(vaData, 2)).Value = vaData
lRowCount = lRowCount + UBound(vaData, 1)
Next i
End Sub
然后运行 PrintTree 子程序。或者您可以下载我用来测试它的工作簿并在其中进行操作。
关于mysql - 在 Excel 中格式化 MySQL 数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3184705/
初学者 android 问题。好的,我已经成功写入文件。例如。 //获取文件名 String filename = getResources().getString(R.string.filename
我已经将相同的图像保存到/data/data/mypackage/img/中,现在我想显示这个全屏,我曾尝试使用 ACTION_VIEW 来显示 android 标准程序,但它不是从/data/dat
我正在使用Xcode 9,Swift 4。 我正在尝试使用以下代码从URL在ImageView中显示图像: func getImageFromUrl(sourceUrl: String) -> UII
我的 Ubuntu 安装 genymotion 有问题。主要是我无法调试我的数据库,因为通过 eclipse 中的 DBMS 和 shell 中的 adb 我无法查看/data/文件夹的内容。没有显示
我正在尝试用 PHP 发布一些 JSON 数据。但是出了点问题。 这是我的 html -- {% for x in sets %}
我观察到两种方法的结果不同。为什么是这样?我知道 lm 上发生了什么,但无法弄清楚 tslm 上发生了什么。 > library(forecast) > set.seed(2) > tts lm(t
我不确定为什么会这样!我有一个由 spring data elasticsearch 和 spring data jpa 使用的类,但是当我尝试运行我的应用程序时出现错误。 Error creatin
在 this vega 图表,如果我下载并转换 flare-dependencies.json使用以下 jq 到 csv命令, jq -r '(map(keys) | add | unique) as
我正在提交一个项目,我必须在其中创建一个带有表的 mysql 数据库。一切都在我这边进行,所以我只想检查如何将我所有的压缩文件发送给使用不同计算机的人。基本上,我如何为另一台计算机创建我的数据库文件,
我有一个应用程序可以将文本文件写入内部存储。我想仔细看看我的电脑。 我运行了 Toast.makeText 来显示路径,它说:/数据/数据/我的包 但是当我转到 Android Studio 的 An
我喜欢使用 Genymotion 模拟器以如此出色的速度加载 Android。它有非常好的速度,但仍然有一些不稳定的性能。 如何从 Eclipse 中的文件资源管理器访问 Genymotion 模拟器
我需要更改 Silverlight 中文本框的格式。数据通过 MVVM 绑定(bind)。 例如,有一个 int 属性,我将 1 添加到 setter 中的值并调用 OnPropertyChanged
我想向 Youtube Data API 提出请求,但我不需要访问任何用户信息。我只想浏览公共(public)视频并根据搜索词显示视频。 我可以在未经授权的情况下这样做吗? 最佳答案 YouTube
我已经设置了一个 Twilio 应用程序,我想向人们发送更新,但我不想回复单个文本。我只是想让他们在有问题时打电话。我一切正常,但我想在发送文本时显示传入文本,以确保我不会错过任何问题。我正在使用 p
我有一个带有表单的网站(目前它是纯 HTML,但我们正在切换到 JQuery)。流程是这样的: 接受用户的输入 --- 5 个整数 通过 REST 调用网络服务 在服务器端运行一些计算...并生成一个
假设我们有一个名为 configuration.js 的文件,当我们查看内部时,我们会看到: 'use strict'; var profile = { "project": "%Projec
这部分是对 Previous Question 的扩展我的: 我现在可以从我的 CI Controller 成功返回 JSON 数据,它返回: {"results":[{"id":"1","Sourc
有什么有效的方法可以删除 ios 中 CBL 的所有文档存储?我对此有疑问,或者,如果有人知道如何从本质上使该应用程序像刚刚安装一样,那也会非常有帮助。我们正在努力确保我们的注销实际上将应用程序设置为
我有一个 Rails 应用程序,它与其他 Rails 应用程序通信以进行数据插入。我使用 jQuery $.post 方法进行数据插入。对于插入,我的其他 Rails 应用程序显示 200 OK。但在
我正在为服务于发布请求的 API 调用运行单元测试。我正在传递请求正文,并且必须将响应作为帐户数据返回。但我只收到断言错误 注意:数据是从 Azure 中获取的 spec.js const accou
我是一名优秀的程序员,十分优秀!